!MAIN SUBROUTINE
    dimension a(100000000),i(100000000)
    real*8 a

    call initCommon(a,i,i_time)

    !Solving SP task
    call mainSP(a,i,i_time)

    !Solving VP task
    call mainVP(a,i,i_time)

    write(*,*) '    Press any key to continue...'
    read(*,*)
end
!*************************************************************************
!*************************************************************************
!*************************************************************************